home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_FileSB.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  20.7 KB  |  533 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_FileSB.c
  5. * RCS:          $Header: wc_FileSB.c,v 1.6 91/03/14 03:14:38 mayer Exp $
  6. * Description:  XM_FILE_SELECTION_BOX_WIDGET_CLASS
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Fri Oct 27 22:29:33 1989
  9. * Modified:     Thu Oct  3 21:46:03 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       Experimental (Do Not Distribute)
  13. * Status:       X11r5 contrib tape release
  14. *
  15. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  16. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  17. *
  18. * Permission to use, copy, modify, distribute, and sell this software and its
  19. * documentation for any purpose is hereby granted without fee, provided that
  20. * the above copyright notice appear in all copies and that both that
  21. * copyright notice and this permission notice appear in supporting
  22. * documentation, and that the name of Hewlett-Packard and David Betz not be
  23. * used in advertising or publicity pertaining to distribution of the software
  24. * without specific, written prior permission.  Hewlett-Packard and David Betz
  25. * make no representations about the suitability of this software for any
  26. * purpose. It is provided "as is" without express or implied warranty.
  27. *
  28. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  29. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  30. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  31. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  32. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  33. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  34. * PERFORMANCE OF THIS SOFTWARE.
  35. *
  36. * See ./winterp/COPYRIGHT for information on contacting the authors.
  37. * 
  38. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  39. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  40. *
  41. ********************************************************************************
  42. */
  43. static char rcs_identity[] = "@(#)$Header: wc_FileSB.c,v 1.6 91/03/14 03:14:38 mayer Exp $";
  44.  
  45. #include <stdio.h>
  46. #include <Xm/Xm.h>
  47. #include <Xm/FileSB.h>
  48. #include "winterp.h"
  49. #include "user_prefs.h"
  50. #include "xlisp/xlisp.h"
  51. #include "w_funtab.h"
  52. #include "w_XmString.h"
  53.  
  54.  
  55. extern Widget Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(); /* w_classes.c */
  56.  
  57.  
  58. /*****************************************************************************
  59.  * (send XM_FILE_SELECTION_BOX_WIDGET_CLASS :new 
  60.  *                           [:managed/:unmanaged]
  61.  *                           [:dialog]
  62.  *                           [<name>]
  63.  *                           <parent> 
  64.  *                           [:XMN_<arg1> <val1>]
  65.  *                           [. . .             ]
  66.  *                           [:XMN_<argN> <valN>])
  67.  *
  68.  * The optional keyword submessage :managed will cause a subsequent call
  69.  * to XtManageChild(). If the submessage :unmanaged is present, or no
  70.  * submessage, then XtManageChild() won't be called, and the resulting
  71.  * widget will be returned unmanaged.
  72.  *
  73.  * (send XM_FILE_SELECTION_BOX_WIDGET_CLASS :new ...)
  74.  *   --> XmCreateFileSelectionBox();
  75.  * (send XM_FILE_SELECTION_BOX_WIDGET_CLASS :new :dialog ...)
  76.  *   --> XmCreateFileSelectionDialog();
  77.  ****************************************************************************/
  78. LVAL Xm_File_Selection_Box_Widget_Class_Method_ISNEW()
  79. {
  80.   extern ArgList Wres_Get_LispArglist(); /* from w_resources.c */
  81.   extern void    Wres_Free_C_Arglist_Data(); /* from w_resources.c */
  82.   extern LVAL k_managed, k_unmanaged, k_dialog;
  83.   LVAL self, o_parent;
  84.   char* name;
  85.   Boolean managed_p, dialog_p;
  86.   Widget widget_id, parent_widget_id;
  87.  
  88.   self = xlgaobject();        /* NOTE: xlobj.c:clnew() returns an OBJECT; if this method
  89.                    returns successfully, it will return a WIDGETOBJ */
  90.  
  91.   /* get optional managed/unmanaged arg */
  92.   if (moreargs() && ((*xlargv == k_managed) || (*xlargv == k_unmanaged)))
  93.     managed_p = (nextarg() == k_managed);
  94.   else
  95.     managed_p = FALSE;        /* by default don't call XtManageChild() */
  96.  
  97.   /* get optional :dialog arg */
  98.   if (moreargs() && (*xlargv == k_dialog)) {
  99.     nextarg();
  100.     dialog_p = TRUE;
  101.   }
  102.   else
  103.     dialog_p = FALSE;        /* by default, we don't want a dialog widget */
  104.  
  105.   /* get optional <name> arg */
  106.   if (moreargs() && (stringp(*xlargv)))
  107.     name = (char*) getstring(nextarg());
  108.   else
  109.     name = "";            /* default name */
  110.  
  111.   /* get required <parent> widget-object arg */
  112.   parent_widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&o_parent);
  113.  
  114.   /*
  115.    * Store the widget object <self> in the XmNuserData resource on the
  116.    * widget. This will allow us to retrieve the widget object from Xtoolkit
  117.    * functions returning widget ID's without having to keep around a table
  118.    * of widgetID-->widget-objects.
  119.    */
  120.    ARGLIST_RESET(); ARGLIST_ADD(XmNuserData, (XtArgVal) self); 
  121.  
  122.   if (moreargs()) {        /* if there are more arguments, */
  123.     Cardinal xt_numargs;    /* then we have some extra widget resources to set */
  124.     ArgList xt_arglist = Wres_Get_LispArglist(self, parent_widget_id, ARGLIST(), &xt_numargs);
  125.     if (dialog_p)
  126.       widget_id = XmCreateFileSelectionDialog(parent_widget_id, name, xt_arglist, xt_numargs);
  127.     else
  128.       widget_id = XmCreateFileSelectionBox(parent_widget_id, name, xt_arglist, xt_numargs);
  129.     Wres_Free_C_Arglist_Data();
  130.   }
  131.   else 
  132.     if (dialog_p)
  133.       widget_id = XmCreateFileSelectionDialog(parent_widget_id, name, ARGLIST());
  134.     else
  135.       widget_id = XmCreateFileSelectionBox(parent_widget_id, name, ARGLIST());
  136.  
  137.   Wcls_Initialize_WIDGETOBJ(self, widget_id);
  138.  
  139.   if (managed_p)
  140.     XtManageChild(widget_id);
  141.   
  142. #ifdef DEBUG_WINTERP_1
  143.   Wcls_Print_WidgetObj_Info(self);
  144. #endif
  145.   return (self);
  146. }
  147.  
  148.  
  149. /******************************************************************************
  150.  * typedef struct
  151.  * {
  152.  *     int reason;
  153.  *     XEvent    *event;
  154.  *     XmString    value;
  155.  *     int    length;
  156.  *     XmString    mask;
  157.  *     int    mask_length;
  158.  *     XmString    dir ;             -- THIS FIELD EXISTS ONLY IN MOTIF 1.1
  159.  *     int    dir_length ;     -- THIS FIELD EXISTS ONLY IN MOTIF 1.1
  160.  *     XmString pattern ;        -- THIS FIELD EXISTS ONLY IN MOTIF 1.1
  161.  *     int    pattern_length ; -- THIS FIELD EXISTS ONLY IN MOTIF 1.1
  162.  * } XmFileSelectionBoxCallbackStruct;
  163.  ******************************************************************************/
  164. static LVAL s_CALLBACK_MASK, s_CALLBACK_MASK_LENGTH;
  165. #ifdef WINTERP_MOTIF_11
  166. static LVAL s_CALLBACK_DIR, s_CALLBACK_DIR_LENGTH, s_CALLBACK_PATTERN, s_CALLBACK_PATTERN_LENGTH;
  167. #endif                /* WINTERP_MOTIF_11 */
  168. static void Lexical_Bindings_For_XmFileSelectionBoxCallbackStruct(bindings_list, lexical_env, cd, o_widget)
  169.      LVAL      bindings_list;    /* a list of symbols to which values from XmFileSelectionBoxCallbackStruct are bound */
  170.      LVAL      lexical_env;        
  171.      XmFileSelectionBoxCallbackStruct* cd;
  172.      LVAL      o_widget;    /* XLTYPE_WIDGETOBJ */
  173. {
  174.   extern LVAL s_CALLBACK_WIDGET, s_CALLBACK_REASON, s_CALLBACK_XEVENT, s_CALLBACK_VALUE, s_CALLBACK_LENGTH; /* w_callbacks.c */
  175.   extern LVAL Wcb_Get_Callback_Reason_Symbol();    /* w_callbacks.c */
  176.   register LVAL s_bindname;
  177.  
  178.   for ( ; consp(bindings_list); bindings_list = cdr(bindings_list)) {
  179.  
  180.     s_bindname = car(bindings_list);
  181.  
  182.     if (s_bindname == s_CALLBACK_WIDGET) {
  183.       xlpbind(s_bindname, o_widget, lexical_env);
  184.     }
  185.     else if (s_bindname == s_CALLBACK_REASON) {
  186.       xlpbind(s_bindname, Wcb_Get_Callback_Reason_Symbol(cd->reason), lexical_env);
  187.     }
  188.     else if (s_bindname == s_CALLBACK_XEVENT) {
  189.       xlpbind(s_bindname, (cd->event) ? cv_xevent(cd->event) : NIL, lexical_env);
  190.     }
  191.     else if (s_bindname == s_CALLBACK_VALUE) {
  192.       xlpbind(s_bindname, (cd->value) ? cv_xmstring(XmStringCopy(cd->value)) : NIL, lexical_env);
  193.     }
  194.     else if (s_bindname == s_CALLBACK_LENGTH) {
  195.       xlpbind(s_bindname, cvfixnum((FIXTYPE) cd->length), lexical_env);
  196.     }
  197.     else if (s_bindname == s_CALLBACK_MASK) {
  198.       xlpbind(s_bindname, (cd->mask) ? cv_xmstring(XmStringCopy(cd->mask)) : NIL, lexical_env);
  199.     }
  200.     else if (s_bindname == s_CALLBACK_MASK_LENGTH) {
  201.       xlpbind(s_bindname, cvfixnum((FIXTYPE) cd->mask_length), lexical_env);
  202.     }
  203. #ifdef WINTERP_MOTIF_11
  204.     else if (s_bindname == s_CALLBACK_DIR) {
  205.       xlpbind(s_bindname, (cd->mask) ? cv_xmstring(XmStringCopy(cd->dir)) : NIL, lexical_env);
  206.     }
  207.     else if (s_bindname == s_CALLBACK_DIR_LENGTH) {
  208.       xlpbind(s_bindname, cvfixnum((FIXTYPE) cd->dir_length), lexical_env);
  209.     }
  210.     else if (s_bindname == s_CALLBACK_PATTERN) {
  211.       xlpbind(s_bindname, (cd->mask) ? cv_xmstring(XmStringCopy(cd->pattern)) : NIL, lexical_env);
  212.     }
  213.     else if (s_bindname == s_CALLBACK_PATTERN_LENGTH) {
  214.       xlpbind(s_bindname, cvfixnum((FIXTYPE) cd->pattern_length), lexical_env);
  215.     }
  216. #endif                /* WINTERP_MOTIF_11 */
  217.     else {
  218.       extern char temptext[];    /* from winterp.c */
  219.       sprintf(temptext,
  220. #ifdef WINTERP_MOTIF_11
  221.           "Unknown binding name in XmFileSelectionBoxCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s %s %s %s %s %s %s %s].",
  222. #else
  223.           "Unknown binding name in XmFileSelectionBoxCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s %s %s %s].",
  224. #endif                /* WINTERP_MOTIF_11 */
  225.  
  226.           (char*) getstring(getpname(s_CALLBACK_WIDGET)),
  227.           (char*) getstring(getpname(s_CALLBACK_REASON)),
  228.           (char*) getstring(getpname(s_CALLBACK_XEVENT)),
  229.           (char*) getstring(getpname(s_CALLBACK_VALUE)),
  230.           (char*) getstring(getpname(s_CALLBACK_LENGTH)),
  231. #ifdef WINTERP_MOTIF_11
  232.           (char*) getstring(getpname(s_CALLBACK_DIR)),
  233.           (char*) getstring(getpname(s_CALLBACK_DIR_LENGTH)),
  234.           (char*) getstring(getpname(s_CALLBACK_PATTERN)),
  235.           (char*) getstring(getpname(s_CALLBACK_PATTERN_LENGTH)),
  236. #endif                /* WINTERP_MOTIF_11 */
  237.           (char*) getstring(getpname(s_CALLBACK_MASK)),
  238.           (char*) getstring(getpname(s_CALLBACK_MASK_LENGTH)));
  239.       xlerror(temptext, s_bindname);
  240.     }
  241.   }
  242. }
  243.  
  244.  
  245. /******************************************************************************
  246.  * This is called indirectly via XtAddCallback() for callbacks returning
  247.  * an XmFileSelectionBoxCallbackStruct as call_data.
  248.  ******************************************************************************/
  249. static void XmFileSelectionBoxCallbackStruct_Callbackproc(widget, client_data, call_data)
  250.      Widget    widget;
  251.      XtPointer client_data;
  252.      XtPointer call_data;
  253. {
  254.   extern void Wcb_Meta_Callbackproc();    /* w_callbacks.c */
  255.  
  256.   Wcb_Meta_Callbackproc(client_data, call_data,
  257.             Lexical_Bindings_For_XmFileSelectionBoxCallbackStruct,
  258.             NULL);
  259. }
  260.  
  261.  
  262. /******************************************************************************
  263.  * Same as WIDGET_CLASS's :add_callback method except that this understands
  264.  * how to get values from the XmFileSelectionBoxCallbackStruct.
  265.  * Specifying one or more of the following symbols in the callback bindings 
  266.  * list will bind that symbol's value in the lexical environment of the callback:
  267.  * CALLBACK_WIDGET
  268.  * CALLBACK_REASON
  269.  * CALLBACK_XEVENT
  270.  * CALLBACK_VALUE
  271.  * CALLBACK_LENGTH
  272.  * CALLBACK_MASK
  273.  * CALLBACK_MASK_LENGTH
  274.  * CALLBACK_DIR         -- ONLY IN MOTIF 1.1
  275.  * CALLBACK_DIR_LENGTH        -- ONLY IN MOTIF 1.1
  276.  * CALLBACK_PATTERN        -- ONLY IN MOTIF 1.1
  277.  * CALLBACK_PATTERN_LENGTH    -- ONLY IN MOTIF 1.1
  278.  ******************************************************************************/
  279. LVAL Xm_File_Selection_Box_Widget_Class_Method_ADD_CALLBACK()
  280. {
  281.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  282.  
  283.   return (Wcb_Meta_Method_Add_Callback(XmFileSelectionBoxCallbackStruct_Callbackproc, FALSE));
  284. }
  285.  
  286.  
  287. /******************************************************************************
  288.  * Same as WIDGET_CLASS's :set_callback method except that this understands
  289.  * how to get values from the XmFileSelectionBoxCallbackStruct.
  290.  * Specifying one or more of the following symbols in the callback bindings 
  291.  * list will bind that symbol's value in the lexical environment of the callback:
  292.  * CALLBACK_WIDGET
  293.  * CALLBACK_REASON
  294.  * CALLBACK_XEVENT
  295.  * CALLBACK_VALUE
  296.  * CALLBACK_LENGTH
  297.  * CALLBACK_MASK
  298.  * CALLBACK_MASK_LENGTH
  299.  * CALLBACK_DIR         -- ONLY IN MOTIF 1.1
  300.  * CALLBACK_DIR_LENGTH        -- ONLY IN MOTIF 1.1
  301.  * CALLBACK_PATTERN        -- ONLY IN MOTIF 1.1
  302.  * CALLBACK_PATTERN_LENGTH    -- ONLY IN MOTIF 1.1
  303.  ******************************************************************************/
  304. LVAL Xm_File_Selection_Box_Widget_Class_Method_SET_CALLBACK()
  305. {
  306.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  307.  
  308.   return (Wcb_Meta_Method_Add_Callback(XmFileSelectionBoxCallbackStruct_Callbackproc, TRUE));
  309. }
  310.  
  311.  
  312. /******************************************************************************
  313.  * (send <fileselboxwidget> :GET_CHILD <child_sym>)
  314.  * This method returns a WIDGETOBJ corresponding to one of
  315.  * <fileselboxwidget> children. <child_sym> can be one of:
  316.  *    :DIALOG_WORK_AREA
  317.  *    :DIALOG_SEPARATOR
  318.  *    :DIALOG_APPLY_BUTTON
  319.  *    :DIALOG_CANCEL_BUTTON
  320.  *    :DIALOG_DEFAULT_BUTTON
  321.  *    :DIALOG_FILTER_LABEL
  322.  *    :DIALOG_FILTER_TEXT
  323.  *    :DIALOG_HELP_BUTTON
  324.  *    :DIALOG_LIST
  325.  *    :DIALOG_LIST_LABEL
  326.  *    :DIALOG_OK_BUTTON
  327.  *    :DIALOG_SELECTION_LABEL
  328.  *    :DIALOG_TEXT
  329.  *    :DIALOG_DIR_LIST    -- EXISTS ONLY IN MOTIF 1.1
  330.  *    :DIALOG_DIR_LIST_LABEL    -- EXISTS ONLY IN MOTIF 1.1
  331.  *
  332.  *  Widget XmFileSelectionBoxGetChild (fs, which)
  333.  *  Widget fs;             -- SelectionBox widget 
  334.  *  unsigned char which; --  which child
  335.  ******************************************************************************/
  336. LVAL Xm_File_Selection_Box_Widget_Class_Method_GET_CHILD()
  337. {
  338.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ();
  339.   extern LVAL s_XmDIALOG_FILTER_LABEL, s_XmDIALOG_FILTER_TEXT,
  340. #ifdef WINTERP_MOTIF_11
  341.   s_XmDIALOG_DIR_LIST, s_XmDIALOG_DIR_LIST_LABEL,
  342. #endif                /* WINTERP_MOTIF_11 */
  343.   s_XmDIALOG_LIST, s_XmDIALOG_LIST_LABEL, s_XmDIALOG_SELECTION_LABEL, 
  344.   s_XmDIALOG_WORK_AREA, s_XmDIALOG_TEXT, s_XmDIALOG_SEPARATOR,
  345.   s_XmDIALOG_OK_BUTTON, s_XmDIALOG_APPLY_BUTTON, s_XmDIALOG_CANCEL_BUTTON,
  346.   s_XmDIALOG_HELP_BUTTON, s_XmDIALOG_DEFAULT_BUTTON;
  347.   LVAL self, lval_child;
  348.   Widget widget_id;
  349.   unsigned char child;
  350.  
  351.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  352.   lval_child = xlgasymbol();
  353.   xllastarg();
  354.   
  355.   if (lval_child == s_XmDIALOG_FILTER_LABEL)
  356.     child = XmDIALOG_FILTER_LABEL;
  357.   else if (lval_child == s_XmDIALOG_FILTER_TEXT)
  358.     child = XmDIALOG_FILTER_TEXT;
  359. #ifdef WINTERP_MOTIF_11
  360.   else if (lval_child == s_XmDIALOG_DIR_LIST)
  361.     child = XmDIALOG_DIR_LIST;
  362.   else if (lval_child == s_XmDIALOG_DIR_LIST_LABEL)
  363.     child = XmDIALOG_DIR_LIST_LABEL;
  364. #endif                /* WINTERP_MOTIF_11 */
  365.   /* the following are from the selection box widget */
  366.   else if (lval_child == s_XmDIALOG_LIST)
  367.     child = XmDIALOG_LIST;
  368.   else if (lval_child == s_XmDIALOG_LIST_LABEL)
  369.     child = XmDIALOG_LIST_LABEL;
  370.   else if (lval_child == s_XmDIALOG_SELECTION_LABEL)
  371.     child = XmDIALOG_SELECTION_LABEL;
  372.   else if (lval_child == s_XmDIALOG_WORK_AREA)
  373.     child = XmDIALOG_WORK_AREA;
  374.   else if (lval_child == s_XmDIALOG_TEXT)
  375.     child = XmDIALOG_TEXT;
  376.   else if (lval_child == s_XmDIALOG_SEPARATOR)
  377.     child = XmDIALOG_SEPARATOR;
  378.   else if (lval_child == s_XmDIALOG_OK_BUTTON)
  379.     child = XmDIALOG_OK_BUTTON;
  380.   else if (lval_child == s_XmDIALOG_APPLY_BUTTON)
  381.     child = XmDIALOG_APPLY_BUTTON;
  382.   else if (lval_child == s_XmDIALOG_CANCEL_BUTTON)
  383.     child = XmDIALOG_CANCEL_BUTTON; 
  384.   else if (lval_child == s_XmDIALOG_HELP_BUTTON)
  385.     child = XmDIALOG_HELP_BUTTON;
  386.   else if (lval_child == s_XmDIALOG_DEFAULT_BUTTON)
  387.     child =XmDIALOG_DEFAULT_BUTTON;
  388.   else 
  389.     xlerror("FILE_SELECTION_BOX_WIDGET_CLASS method :GET_CHILD -- unknown child type.", lval_child);
  390.  
  391.   return (Wcls_WidgetID_To_WIDGETOBJ(XmFileSelectionBoxGetChild(widget_id, child))); 
  392. }
  393.  
  394.  
  395. /******************************************************************************
  396.  * (send <fileselboxwidget> :DO_SEARCH [<dirmask>])
  397.  * this method initiates a directory search. The search will be according to 
  398.  * the string or XmString <dirmask>. If <dirmask> is NIL or not supplied, then
  399.  * the search will use the current directory mask. This method returns <dirmask>
  400.  * as an XmString.
  401.  *
  402.  * void XmFileSelectionDoSearch(fs, dirmask)
  403.  * Widget fs;
  404.  * XmString   dirmask;
  405.  ******************************************************************************/
  406. LVAL Xm_File_Selection_Box_Widget_Class_Method_DO_SEARCH()
  407. {
  408.   LVAL self, lval_dirmask;
  409.   Widget widget_id;
  410.   XmString dirmask;
  411.   extern XmString Get_String_or_XmString_Arg_Returning_XmString(); /* w_XmString.c */
  412.  
  413.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  414.   if (moreargs() && (*xlargv))    /* get a non-NIL <dirmask> argument */
  415.     dirmask = Get_String_or_XmString_Arg_Returning_XmString(&lval_dirmask);
  416.   else if (moreargs()) {    /* else skip a NIL <dirmask> argument */
  417.     nextarg();
  418.     dirmask = NULL;
  419.   }
  420.   else                /* else no <dirmask> argument */
  421.     dirmask = NULL;
  422.   xllastarg();
  423.   
  424.   XmFileSelectionDoSearch(widget_id, dirmask);
  425.   
  426.   return (lval_dirmask);
  427. }
  428.  
  429.  
  430. #ifdef WINTERP_MOTIF_11
  431. /******************************************************************************
  432.  * (send <fileselboxwidget> :GET_DIR_LIST_ITEMS)
  433.  *     ==> returns an array of XmStrings.
  434.  *
  435.  * This retrieves the XmFileSelectionBox widget resources XmNdirListItems and
  436.  * XmNdirListItemCount from <fileselboxwidget> and returns an array of XmStrings
  437.  * representing the items in the directory list.
  438.  *******************************************************************************/
  439. LVAL Xm_File_Selection_Box_Widget_Class_Method_GET_DIR_LIST_ITEMS()
  440. {
  441.   LVAL self;
  442.   Widget widget_id;
  443.   XmStringTable xmstrtab;
  444.   int        xmstrtab_size;
  445.  
  446.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  447.   xllastarg();
  448.  
  449.   ARGLIST_RESET();
  450.   ARGLIST_ADD(XmNdirListItems, &xmstrtab);
  451.   ARGLIST_ADD(XmNdirListItemCount, &xmstrtab_size);
  452.   XtGetValues(widget_id, ARGLIST());
  453.  
  454.   return (Wxms_XmStringTable_To_Lisp_Vector(xmstrtab, xmstrtab_size));
  455. }
  456.  
  457.  
  458. /******************************************************************************
  459.  * (send <fileselboxwidget>  :GET_FILE_LIST_ITEMS)
  460.  *     ==> returns an array of XmStrings
  461.  *
  462.  * This retrieves the XmFileSelectionBox widget resources XmNfileListItems and
  463.  * XmNfileListItemCount from <fileselboxwidget> and returns an array of XmStrings
  464.  * representing the items in the file list.
  465.  *******************************************************************************/
  466. LVAL Xm_File_Selection_Box_Widget_Class_Method_GET_FILE_LIST_ITEMS()
  467. {
  468.   LVAL self;
  469.   Widget widget_id;
  470.   XmStringTable xmstrtab;
  471.   int        xmstrtab_size;
  472.  
  473.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  474.   xllastarg();
  475.  
  476.   ARGLIST_RESET();
  477.   ARGLIST_ADD(XmNfileListItems, &xmstrtab);
  478.   ARGLIST_ADD(XmNfileListItemCount, &xmstrtab_size);
  479.   XtGetValues(widget_id, ARGLIST());
  480.  
  481.   return (Wxms_XmStringTable_To_Lisp_Vector(xmstrtab, xmstrtab_size));
  482. }
  483. #endif                /* WINTERP_MOTIF_11 */
  484.  
  485.  
  486. /******************************************************************************
  487.  *
  488.  ******************************************************************************/
  489. Wc_FileSB_Init()
  490. {
  491.   LVAL o_XM_FILE_SELECTION_BOX_WIDGET_CLASS;
  492.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  493.   extern      xladdmsg();    /* from xlobj.c */
  494.  
  495.   o_XM_FILE_SELECTION_BOX_WIDGET_CLASS =
  496.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_FILE_SELECTION_BOX_WIDGET_CLASS",
  497.                      xmFileSelectionBoxWidgetClass);
  498.  
  499.   /* a special :isnew method on this class allows for the creation of this
  500.      widget in a popup dialog if the submessage keyword :dialog is given ... */
  501.   xladdmsg(o_XM_FILE_SELECTION_BOX_WIDGET_CLASS, ":ISNEW", 
  502.        FTAB_Xm_File_Selection_Box_Widget_Class_Method_ISNEW);
  503.  
  504.   xladdmsg(o_XM_FILE_SELECTION_BOX_WIDGET_CLASS, ":ADD_CALLBACK",
  505.            FTAB_Xm_File_Selection_Box_Widget_Class_Method_ADD_CALLBACK);
  506.  
  507.   xladdmsg(o_XM_FILE_SELECTION_BOX_WIDGET_CLASS, ":SET_CALLBACK",
  508.            FTAB_Xm_File_Selection_Box_Widget_Class_Method_SET_CALLBACK);
  509.  
  510.   xladdmsg(o_XM_FILE_SELECTION_BOX_WIDGET_CLASS, ":GET_CHILD",
  511.            FTAB_Xm_File_Selection_Box_Widget_Class_Method_GET_CHILD);
  512.  
  513.   xladdmsg(o_XM_FILE_SELECTION_BOX_WIDGET_CLASS, ":DO_SEARCH",
  514.        FTAB_Xm_File_Selection_Box_Widget_Class_Method_DO_SEARCH);
  515.  
  516. #ifdef WINTERP_MOTIF_11
  517.   xladdmsg(o_XM_FILE_SELECTION_BOX_WIDGET_CLASS, ":GET_DIR_LIST_ITEMS",
  518.        FTAB_Xm_File_Selection_Box_Widget_Class_Method_GET_DIR_LIST_ITEMS);
  519.  
  520.   xladdmsg(o_XM_FILE_SELECTION_BOX_WIDGET_CLASS, ":GET_FILE_LIST_ITEMS",
  521.        FTAB_Xm_File_Selection_Box_Widget_Class_Method_GET_FILE_LIST_ITEMS);
  522. #endif                /* WINTERP_MOTIF_11 */
  523.  
  524.   s_CALLBACK_MASK           = xlenter("CALLBACK_MASK");
  525.   s_CALLBACK_MASK_LENGTH    = xlenter("CALLBACK_MASK_LENGTH");
  526. #ifdef WINTERP_MOTIF_11
  527.   s_CALLBACK_DIR            = xlenter("CALLBACK_DIR");
  528.   s_CALLBACK_DIR_LENGTH     = xlenter("CALLBACK_DIR_LENGTH");
  529.   s_CALLBACK_PATTERN        = xlenter("CALLBACK_PATTERN");
  530.   s_CALLBACK_PATTERN_LENGTH = xlenter("CALLBACK_PATTERN_LENGTH");
  531. #endif                /* WINTERP_MOTIF_11 */
  532. }
  533.